---
title: "NCAA Football Bowl Season 2020"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(knitr)
library(flexdashboard)
```


```{r eval = T}
source(here::here("source_files", "loads_all_data.R"))


all_data <- data_getter(load_cached = T)

game_scores <- all_data$game_scores
selections_data = all_data$selections_data

standings <-
run_all_analysis(game_scores_read_in = game_scores, selections_data = selections_data)

```

### Current Standings {data-width=550}

```{r}
DT::datatable(standings$standings)
```

### Picks Revealed {data-width=450}

```{r}
DT::datatable(standings$visible_picks)
```